home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / graphics / dessin-1.dem < prev    next >
Text File  |  1999-09-16  |  6KB  |  197 lines
  1.  
  2. str_l=list();
  3. str_l(1)=['t=(0:0.1:6*%pi);';
  4.       'plot2d(t'',sin(t)'');'
  5.       'xtitle(''plot2d and xgrid '',''t'',''sin(t)'');';
  6.       'halt();xgrid();'];
  7.  
  8. str_l(2)=['plot2d1(''enl'',1,(1:10:10000)'');';
  9.       'xtitle(''plot2d1 log scale'',''t'',''y  log scale'');'];
  10.      
  11. str_l(3)=['n=32-1;t=(0:n)/n;';
  12.      'u=sin(80*%pi*t)+sin(100*%pi*t);';
  13.      'plot2d3(''enn'',1,abs(fft(u,-1))''/n);';
  14.      'xtitle(''plot2d3 (vbar plot)'',''t'',''f(t)'');'];
  15.  
  16. str_l(4)=['rand(''normal'');';
  17.      'v=(1:20)+(1:20).*rand(1,20);';
  18.      'plot2d1(''enn'',1,v'');';
  19.      'plot2d1(''enn'',1,(1:20)'',[-2,2],''100'',''estimated'');';
  20.      'xtitle(''plot2d1 '','' '','' '');'];
  21.  
  22. str_l(5)='histplot()';
  23. str_l(6)=['fplot2d();';
  24.      'xtitle(''fplot2d : f given by external '',''x '',''f(x) '');'];
  25.  
  26. str_l(7)=['param3d();';
  27.       'xtitle(''param3d : parametric curves in R3'','' '','' '');'];
  28.  
  29. str_l(8)=['t=-50*%pi:0.1:50*%pi;';
  30.       'x=t.*sin(t);y=t.*cos(t);z=t.*abs(t)/(50*%pi);';
  31.       'param3d(x,y,z,45,60);';
  32.       'title=[''param3d : parametric curves in R3'',';
  33.       ''' (t.sin(t),t.cos(t),t.|t|/50.%pi)''];';
  34.       'xtitle(title,'' '','' '');'];
  35.  
  36. str_l(9)=['plot3d();';
  37.       'title=[''plot3d : z=sin(x)*cos(y)''];';
  38.       'xtitle(title,'' '','' '');'];
  39.  
  40. str_l(10)=['fplot3d();';
  41.       'title=[''fplot3d : z=f(x,y), f external''];';
  42.       'xtitle(title,'' '','' '');'];
  43.  
  44. str_l(11)=['plot3d1();';
  45.       'title=[''plot3d1 : z=sin(x)*cos(y)''];';
  46.       'xtitle(title,'' '','' '');'];
  47.  
  48. str_l(12)=['fplot3d1();';
  49.       'title=[''fplot3d : z=f(x,y), f external''];';
  50.       'xtitle(title,'' '','' '');'];
  51.  
  52. str_l(13)=['contour();';
  53.       'title=[''contour ''];';
  54.       'xtitle(title,'' '','' '');'];
  55.  
  56. str_l(14)=['fcontour();'; 
  57.       'title=[''fcontour ''];';
  58.       'xtitle(title,'' '','' '');'];
  59.  
  60. str_l(15)=['champ();';
  61.       'title=[''champ ''];';
  62.       'xtitle(title,'' '','' '');'];
  63.  
  64. str_l(16)=['fchamp();';
  65.       'title=[''fchamp ''];';
  66.       'xtitle(title,'' '','' '');'];
  67.  
  68. str_l(17)=['grayplot();';
  69.       'title=[''grayplot ''];';
  70.       'xtitle(title,'' '','' '');'];
  71.  
  72. str_l(18)=['fgrayplot();';
  73.       'title=[''fgrayplot ''];';
  74.       'xtitle(title,'' '','' '');'];
  75.  
  76.  
  77. str_l(19)=['errbar();';
  78.       'title=[''errbar ''];';
  79.       'xtitle(title,'' '','' '');'];
  80.  
  81. str_l(20)='chart();';
  82. str_l(21)='zgrid();';
  83. str_l(22)=['r=(%pi):-0.01:0;x=r.*cos(10*r);y=r.*sin(10*r);';
  84.           'deff(''[z]=surf(x,y)'',''z=sin(x)*cos(y)'');';
  85.           't=%pi*(-10:10)/10;';
  86.           'fplot3d(t,t,surf,35,45,''X@Y@Z'',[2,2,3]);';
  87.           '        z=sin(x).*cos(y);';
  88.           'write(%io(2),'"Adding 2d graphics on 3d graphic"');';
  89.           'z=sin(x).*cos(y);';
  90.           '[x1,y1]=geom3d(x,y,z);';
  91.           'xpoly(x1,y1,''lines'');';
  92.           '[x1,y1]=geom3d([0,0],[0,0],[5,0]);';
  93.           'xsegs(x1,y1);';
  94.           'xstring(x1(1),y1(1),'" The point (0,0,0)"');';
  95.           'title=[''plot3d and use of xgeom ''];';
  96.           'xtitle(title,'' '','' '');'];
  97.  
  98. str_l(23)=['r=(%pi):-0.01:0;x=r.*cos(10*r);y=r.*sin(10*r);';
  99.           'deff(''[z]=surf(x,y)'',''z=sin(x)*cos(y)'');';
  100.           't=%pi*(-10:10)/10;';
  101.           'fplot3d(t,t,surf,35,45,''X@Y@Z'',[-1,2,3]);';
  102.           '        z=sin(x).*cos(y);';
  103.           'write(%io(2),'"Adding 2d graphics on 3d graphic"');';
  104.           'z=sin(x).*cos(y);';
  105.           '[x1,y1]=geom3d(x,y,z);';
  106.           'xpoly(x1,y1,''lines'');';
  107.           '[x1,y1]=geom3d([0,0],[0,0],[5,0]);';
  108.           'xsegs(x1,y1);';
  109.           'xstring(x1(1),y1(1),'" The point (0,0,0)"');';
  110.           'title=[''plot3d and use of xgeom ''];';
  111.           'xtitle(title,'' '','' '');'];
  112.  
  113. str_l(24)=['t=%pi*(-10:10)/10;';
  114.           'deff(''[z]=surf(x,y)'',''z=sin(x)*cos(y)'');';
  115.           'rect=[-%pi,%pi,-%pi,%pi,-5,1];';
  116.           'z=feval(t,t,surf);';
  117.           'contour(t,t,z,10,35,45,''X@Y@Z'',[1,1,0],rect,-5);';
  118.           'plot3d(t,t,z,35,45,''X@Y@Z'',[2,1,3],rect);';
  119.           'title=[''plot3d and contour ''];';
  120.           'xtitle(title,'' '','' '');'];
  121.  
  122. str_l(25)=['t=%pi*(-10:10)/10;';
  123.           'deff(''[z]=surf(x,y)'',''z=sin(x)*cos(y)'');';
  124.           'rect=[-%pi,%pi,-%pi,%pi,-1,1];';
  125.           'z=feval(t,t,surf);';
  126.           'plot3d(t,t,z,35,45,''X@Y@Z'',[-1,1,3],rect);';
  127.           'contour(t,t,z,10,35,45,''X@Y@Z'',[0,1,0],rect);';
  128.           'title=[''plot3d and contour ''];';
  129.           'xtitle(title,'' '','' '');'];
  130.  
  131. str_l(26)=['t=%pi*(-10:10)/10;';
  132.           'deff(''[z]=surf(x,y)'',''z=sin(x)*cos(y)'');';
  133.           'rect=[-%pi,%pi,-%pi,%pi,-1,1];';
  134.           'z=feval(t,t,surf);';
  135.           'plot3d(t,t,z,35,45,''X@Y@Z'',[-20,1,3],rect);';
  136.           'xset(''alufunction'',0);';
  137.           'contour(t,t,z,10,35,45,''X@Y@Z'',[0,1,0],rect);';
  138.           'title=[''plot3d and contour X11 only''];';
  139.           'xtitle(title,'' '','' '');';
  140.           'xset(''default'');'];
  141.  
  142. str_l(27)=['exec(''SCI/demos/graphics/sd.sav'');';
  143.            'plot2d();gr_menu(sd_1,1,1);';
  144.           'title=[''plot2d and gr_menu ''];';
  145.           'xtitle(title,'' '','' '');'];
  146.  
  147. str_l(28)=['exec(''SCI/demos/graphics/sd.sav'');';
  148.            'plot3d();gr_menu(sd_2,1,1);';
  149.           'title=[''plot3d and gr_menu ''];';
  150.           'xtitle(title,'' '','' '');'];
  151.  
  152.  
  153. str_l(29)=['xset('"font"',2,0);xsetech([0,0,0.5,0.5]);plot3d();';
  154.     'xsetech([0.5,0,0.5,0.5]);plot2d();';
  155.     'xsetech([0.5,0.5,0.5,0.5]);grayplot();';
  156.     'xsetech([0,0.5,0.5,0.5]);histplot();';
  157.     'xsetech([0,0,1,1]);';
  158.     'xset('"default"');'];
  159.  
  160. str_l(30)=['fac3d();'];
  161.  
  162. str_l(31)=['fac3d1();'];
  163.  
  164. info_l=['plot2d';
  165.         'plot2d1';     
  166.         'plot2d3';
  167.         'plot2d1';     
  168.         'histplot';
  169.         'fplot2d';
  170.         'param3d';
  171.         'param3d';
  172.         'plot3d';
  173.         'fplot3d';
  174.         'plot3d1';
  175.         'fplot3d1';
  176.         'contour';
  177.         'fcontour'; 
  178.         'champ';
  179.         'fchamp';
  180.         'grayplot';
  181.         'fgrayplot';
  182.         'errbar';
  183.         'abaque';
  184.         'zgrid';
  185.         'xgeom 1';
  186.         'xgeom 2';
  187.         'contour (3d) 2';
  188.         'contour (3d) 3';
  189.         'contour (3d) 4';
  190.         'plot2d+gr_menu';
  191.         'plot3d+gr_menu';
  192.         'plots+xsetech';
  193.         'fac3d';
  194.     'fac3d1'];
  195.  
  196.  
  197.